unit UFrmCheckConstrant;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Common, UDM, StdCtrls, CheckLst, UCheckListEx, ExtCtrls, Buttons;

type
  TrmCheckConstrant = class(TFormEx)
    pnl1: TPanel;
    btnz: TBitBtn;
    btnClose: TBitBtn;
    edtMin: TEdit;
    lbl1: TLabel;
    edtMax: TEdit;
    lbl2: TLabel;
    edtDefault: TEdit;
    lbl3: TLabel;
    grp1: TGroupBox;
    mmo1: TMemo;
    procedure btnCloseClick(Sender: TObject);
    procedure btnzClick(Sender: TObject);
  private
    FList: TStringList;
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TrmCheckConstrant.btnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TrmCheckConstrant.btnzClick(Sender: TObject);
var
  i: Integer;
  sSQL:string;
begin
 // sSQL:='update %s alter ';
 //dmSQL.ExecSQL()
  //dmSQL.ExecSQL(Format('ALTER TABLE %s ADD CONSTRANT chk_sfqy check(sfqy in (''%s'',''%s'')',[Value1,Value2]));
end;

end.

